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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


COOOCOOCOooO 
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OFTWARE IS aia UNDER A LICENSE AND MAY BE USED AND corre 
: ACCORDANCE WITH THE TERMS OF SUCH LICENSE ow A THE 
Pp 
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® 
** ® 
*® ® 
*® ® 
** ® 
** © 
** ® 
ie NOF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
*® aa 
ie RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. . 
'* *® 
t® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
t® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. ‘ 
** * 
*® 
** ® 
**® ® 
*® ® 
** * 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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p++ 
3; Facility: rms32 


Abstract: 

this module releases a buffer causing its 

contents to be written out if dirty. 
Environment: 

star processor running starlet exec. 
Author: L F Laverdure, creation date: 29-march-77 


Modified By: 
es. 
we are defaulting MBC to a very large value. 


v03-003 KBT0417 Keith B. Thompson 
Change ifb$Sw_devbufsiz to ifb$l_devbufsiz 


COOOCCCOCOSOSOOSOSOSOSOSSOSOSOSSOSOSOSOSOSOSOSOSOSOOSOSOSOOOOOOOOOSOOOO 
COOOCCCOCOSOSOOOSOSOSSOSOSOSOSOSOSOSOOSOSOSOSOOOSOOSOOOSOOOOSOOOoOOO 
pm me fe feel a lala lololololeoleololeleleleleleleleleoleleolele! 


Revision History 


E H Marison, 7-JUN-1978 13:06 
01 add mbf logic and comments 
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v03-005 0GB0018 Donald G. Blair 02-Mar-1984 
Use full-length fib to support access mode protected 


v03-004 RASO179 Ron Schaefer 29-Jul-1983 
Change default autoextend size to be 2*MBC now that 
Renove use of volume default and clean-up retry logic. 

30-Nov-1982 

v03-002 RASO095 Ron Schaefer 7-Sep-1982 


Correct auto-extend logic for overdraft. Repeal 
old algorithm that reported overdraft errors on the 


actually entry into overdraft as this lost allocated 
blocks. 

v03-001 KBT0147 Keith B. Thompson 20-Aug-1982 
Reorganize psects 

V02-020 JwHO002 Jeffrey W. Horn 12-Jan-1982 
Allow retry of auto-extend only on quota-exceeded and 
device-full errors from ACP. 

v02-019 JwHOOO1 Jeffrey W. Horn _03-NOV-1981 
Changes to use new RMS default extend sizes. 

V02-018 REFORMAT P S Knibbe 25-Jul-1980 

v017 PSK0009 P S Knibbe 10-JAN-1980 


changes to accomadate disk overdrafting. don't permit auto-extend 
if in overdraft. return error when first go into overdraft. 
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Include Files: 
Equated Symbols: 
Own Storage: 


Macros: 
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-+¢ 
notes on the multi-block buffering scheme 


this routine causes multiple blocks to be read together 
(as epeg tt ted 78 mbc) but returned one at a time for 
processing by the calling routines. 


assumptions: 


1. mbc is never > 0 except for disk(= # vbn's = 1) 

2. records are always written as 09 eof (only updates 
- ee elsewhere in the f 

3. al equent ies i/o calls go LS one of the 

follow gn, rou nes: 


to wet et 
rm$relblk1 
4. there is no write staring for sequential files. 
5. a direct release will be done only when there 
is no i/o for the buffer. 


bdb field usage: 


- bdb$l_vbn = vbn of first block in buffer 

- Cirbd$T_rp_vbn = vbn of current block) 

. bdb$b. fe “vbn = er vbn rel to start vbn for buffer 

. bdb$b-val- -vbns = # of valid vbns in buffer 

- bdb$d— flgs: 
-Bdb$v_drt:all blocks up to the greater of the current vbn 
and the number of val_vbns are dirty 
-bdb$v_val:the current vbn is valid 


MEwn— 


6. the relative vbn = requested vbn - start vbn 
7. current block buffer addr = buff addr + trot _vbn*512) 
8. bdb$w_numb = # bytes in current block 
on reads = (irb$b_mbc+1)*512 
on writes = (max(Val_vbn,rel_vbne1))#512 
9. requested vbn is in buffer if its ret _vbn < or = mbc 
10. if read required and rel_vbn < val_vbis ok, 
else release buffer and reread” 
on release (rm$relblk1) if bdb$v_val is off and the 
bdb$v_drt bit is set, merel decrement the 
current vbn and set the valid bit. 


Sete Ge Ge Sere 
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-SBTTL RMSRELBLK1 = ROUTINE TO RELEASE BLOCK, REWRITING IF DIRTY 


RMIRELBLK RELEASE BUFFER FOR SE 
yon 600 RASRELBLE - ROUTINE 


Q. 
TO 


++ 
RMSRELBLK1 = Release block, rewrite if dirty 
his routine releases the block whose bdb address is in ré4. 


Output Parameters: 


r0 status code 
ri,ap destroyed 


Implicit Outputs: 


COOooooooooooooooooooooooo 
COOOCOCoCoCOoOOCoOoOoOOCOoOoOoOoOOoOooOoOooooo 


bdb$b_ figs - drt is cleared 

° val is set 

- jop set if write behind underway 
bdb$w_numb - set to size of transfer, if any 


DOOCOCOOOOWOO OOOO O00 00090009 09 09 09 09 09 SINISE NINN NIIP AAA AAOAOOu 


WN —OOOnNOuUS wn 


Completion Codes: 


159 
1 
1 
1 
i 
0 165 f the block is dirty it is first written. 
4 : § if the write is to a disk file, the file must have been extended if needed. 
09 ! 3 Calling sequence: 
09 } y bsbw rm$relblk1 
3 } § Input Parameters: 
0000 174 rii impure area address 
0000 175 r10 ifab address 
000. =«(1 § r9 rab address 
000 1 r8 rab address 
! 3 r4 bdb address 
6 0 180 ; Implicit Inputs: 
0000 181 
os ¢ bdb$b_ figs (drt and val) 
BS bdb$b_rel _vbn - current block if mbc > 0 
0 184 bdb$w_num - # bytes to write if magtape 
0000 185 db$l_vbn - start block for write 
0000 186 oa - start address for write 
0000 187 ifb$l_hbk - highest allocated block 
0000 188 ifb$w_rtdeq - default extend quanity 
0000 189 ifb$wichnl = channel 
8 3 : y ifb$l_devbufsiz - block buffer size 
ry 
0000 198 
000° 38194 
0 | ! 5 
0000 137 
0 198 
8 0 199 
0 0 
: 


Oo 


standard rms, in particular, suc, sys, dme, wer, ful, prv, ext. 
Side Effects: 


may have switched to running at ast level | 
requiring reprobe of all user addresses not in rab. 


oO 
OOoooooo 
Ooooooeoo: 
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15 RMSRELBLK1:: 
1 STSTPT RELBLK1 
o¢ Ht 1 PUSHR #*M<R2,R3> ; save regs. 
E 18 BBC #BDBSV_DRT,- 
OA AG A 21 BDB$B_FLGS(R4),- 
¢9 C 0 RELEASE ; branch if buffer not dirty 
. a D 1 BBC #DEVSV_RND,- 
gs F § IFBSL PRIM_DEV(R10),-= 
1 19 z RELEASE 3 branch if not disk 
11 S$; 
\ § ; bdb marked dirty - adjust bdb data for release 
1 Ee 
011 .] ASSUME BDBSV_VAL EQ 0 
07 OA AG SCE at 9 BLBS BDBSB_FLGS(R4),10$ ; branch if buffer valid 
01 ; 
it § ; buffer dirty but marked invalid. . 
001 4 ; decrement the current vbn data and say valid. 
Baie 36 3 
48 AG 97 EE $ DECB BOBSB_REL_VBN(R4 
OA A4 01 88 0018 $ BISB2 *BDBSA_ VAC, Epes. FLGS(R4) 
OOe 540 
001C 41 : adjust byte count for transfer if disk : 
O9t¢ ¢g 3; (i.e., transfer all blocks thru current vbn or # val_vbns if greater) 
O1C 244 ° 
52 48 a6 ae 9h o2 10$: oem BDBSB_REL_VBN(R4) ,R2 ’ get gwrrent vbn 
3; ge vbns 
49 AG 3 91 0022 i CMPB R2,BDBSB_VAL_VBNS(R4) ; is current greater than # valid vbns? 
046 #1E 00 $ 48 BGEQU 3: branch if yes 
52 49 $6 1 3 ; $3 158 at ee VAL_VBNS(R4),R2  ; no - so use # valid vbns 
$0 ee . | agers 1FBSL_DEVBUFS1Z(R10),- 
14 AG 48 AA 09 25 BDBSW_NUMB(R4) 3 and set xfer size 
54; 
0 55 ; call rm$release to write and release buffer 
O35 589° 
: 28 RELEASE: 
53 0¢ 88 5 #RLSSM_WRT_THRU,R3 ; flag to get write 
FFCB8* 30 00 60 BSBW RMSRELEASE : release buffer 
oc BA 0 61 POPR #*M<R2,R5> 
05 OO3A 62 


<z 
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RMSAUTOEXTEND = Extend a sequential disk file 


this subroutine extends a sequential disk file. 

the # of blocks for the extend is = 

max (required # blocks, min (2*bdb$w_numb/512, 256)). 

if this many blocks are not available only the minimum required are allocated. 


RMI RELBLK RELEASE BUFFE E 
04000 
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Do 
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calling sequence: 
bsbw rm$autoextend 
input parameters: 


rii impure area address 
r10 ifab address 
r9 irab address 
r8 rab address 
r4 odb address 
minimum # of blocks to extend file 


output parameters: 


r2 
bdb$w_numb number of bytes for xfer 


a MQOOODOOCOOOO OOOO OOOO OOWWW WOW OOOO NN NNN NNNNOOOOOO DD 
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r0 status code 
0038 ri,r3,ap destroyed 
0038 we 
0038 
0038 RMSAUTOEXTEND: : 
34 BB 8 ; PUSHR #*M<R2,R4,R5> 3; save regs 
itd ; 
03D 3; build fib for extend 
003p ; 
52 40 8F 9A $3 MOVZBL #FIBSC_LENGTH,R2 3; size of fib 
51 SA 8 041 MOVL 10 3 space header addr 
FFB9" 30 0044 BSBW RMSGETSPC : allocate fi 
03 50 § 047 BLBS RO,10$ : continue on success 
0081 31 OA BRW ERRXIT 
18 Al. 6E€ 00 4D 10$: MOVL (SP) ,FIBSL_EXSZ(R1) ; set # blocks required 
1A Al =6BS) (0051 TSTW FABSL_EKSZS (R1) ; hi-order extend size zero? 
12 0054 BNEQ 30$ 3: branch if not 
4C AA 6 et b26 CMPW fe) LFBSU_ATOES CATO) ; extend size < default? 
3 A BGEQU $ ; branch if not 
4C 8 bee VW IFBSW_RTDEQ(R10),- 
18 Al f FIBSL_EXSZ(R1) 3; yes - use default 
80 8F 90 61 30$: MOVB #F IBSA_EXTEND,- 
16 Al - 0064 FIBSW_EXCTL(RI) ; say it's an extend _ 
4C AA 83 st) TSTW IFBSW_RTDEQ(R10) 3 zero default extend size? 
38 2 2 BNEQ DOX TNS ; branch if not | 
68 ; 
fe 3; This is an auto extend with deq=0. 
68 3 ity to use system or process default extention quantity. | 
bee ; Otherwise, compute the number of blocks to extend = 
68 : max (required,min(2*bufsiz,256)) 
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33$: 


36$: 


> build 


DOXTND: 


B 10 


NOVZWL g4P L0SGW_RMSEXTEND, RO 
MOVZWL 945VSSGW_RMSEXTEND, RO 
BNE 3$ 


MOVL  4(SP),R4 
EXTZV #9,#7,BDB$W_NUMB(R4) ,RO 
MULW2 #2.R 

CMPW sa, #256 

BLEQ 46 33 

MOVW #356 RO 

CMPL RO, ($P) 

BLEQU 36$ 

MOVW RO,FIBSL_EXSZ(R1) 

SSB #1FBSV_TEF, (R10) 

the fib descriptor 

PUSHL R1 

MOVZBL #F IBSC_LENGTH,-(SP) 


: do the extend 


RMSFCPEXTEND 


BSBW 
MOVL f 

POPR #*M<R2,R4> 

CMPW =s- RO, #@SS$_EXDISKQUOTA 
BEQLU OVERQUOTA 

CMPW ss RO, #SS$_DEVICEFULL 
BEQLU RETRY 

BLBC RO, ERREXT 
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Process deq? 

branch if zee 

System deq 

branch if yes 

restore bdb address 

# of blocks to xfer 


s 

> max. default extend size? 

branch if not 

es - just extend 256 blocks 
required extend size? 

branch if not 

use larger default extend size 

and say used so that we truncate 

at eof on close 


addr of fib 
Length of fib 


& do extend 

get set for rm$retspc 

restore fib length (r2) and addr (r4) 
hit overdraft ? 

spec handling if overquota 


if device full - 
retry 


if error code, exit 
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C 
C 8 ; 
C 64 ; extend complete. 
C 65 ; update ifab hi block field, deallocate the fib, and return 
o¢ 66 ; return status can either be straight success, or SS$_OVRDSKQUOTA 
C 68 * 
50 OD ¢ $3 PUSH RO ; Save success status 
70 AA 10 AG 18 AG C1 C4 0 ADOL FIBSL_EXSZ(R4), F IBSL_EY.VBN(R4) IFBSL_HBK (R10) 
70 AA bf CB 71 DECL IFBSL_HBK (R10) ; get # of highest allocated blk 
Ad | % 0 OQOCE t ERRXIT: BSBW pn Hh 3; return the fib space 
5 Ba 0D] ? POPR #*M<RO,R2,R4,R5> ; restore status and regs 
5 00D3 74 RSB 
00D4 75 
00D4 8 3 | 
0004 77 ; extend failed. if attempted extend was for more than minimum required amount, 
0004 78 ; retry extend for only the minimum required amount, otherwise 
00D4 79 ; map error, release buffer & return 
00D4 80 ; 
00D4 81 | 
18 AG 6€E D1 O00D4 8 RETRY: CMPL (SP) ,FIBSL_EXSZ(R4) 
09 1E€ 00D8 8 BGEQU ERREXT 3; oranch if leq minimum 
51 54 00 OODA 84 MOVL R4,R1 ; restore fib address 
18 Al 6€ DO O0DD 85 MOVL (SP) ,FIBSL_EXSZ(R1) 3; must extend this amount 
CO 11 O0OE1 86 BRB DOXTND 3 go retry extend 
00E3 87 
OOE 88 ; 
OOE 89 ; errors 
OOE 90 ; | 
OOE 91 | 
OOE 38 ERREXT: 
00E3 $9 RMSERR EXT,R1 ; default error code 
FF15* 30 QOE8 94 BSBW RMSMAPERR ; map the error code | 
50 OD OOEB 95 PUSHL R 3 save error code 
DF 11 OOED 96 BRB ERRXIT : cleanup and return 
OOEF 97 
OOEF $05 3 
OOEF 99 ; we hit the over-quota mark on the disk. ‘ 
OOEF 400; #£x°+if the user asked for this amount, then tell him. 
OQOOEF 401 ; if we guessed a value to extend by due to auto-extend, then tell him 
OOEF rh ; but set the the amount to use from now on as 1 so as not to tie up blocks 
OOEF 403; now that we are close to the Limit. 
OOEF 404 ; 
tt $2? 
QEF 406 OVERQUOTA: , ; 
4C AA B5 OQOEF 407 TSTW 1FBSW_RTDEQ(R10) ; if zero, then this is first time we're 
OOF2 408 : in overdraft and we did auto-extend 
EF 12 OOF2 409 BNEQ ERREXT 3 NO - go away ; 
4C AA B6 OOF4 410 INCW IFBSW_RTDEQ(R10) ; default extend is now 1, this disables 
Boe 411 ; auto-extend — 
EA 11 OOF? $16 BRB ERREXT ; return to mainline 
OOF9 41 
OOF9 414 END 
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$$.PSECT_EP 
SSRMSTEST 


XVBN 
$a “EXTEN 
SWTEXCTL 

$i ~DEVBUF SIZ 
SLPRIM_DEV 
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538. ST TCEFULL 
SS$_EXDISKQUOTA 
SYSSGw_RMSEXTEND 
TPT$L_RELBLK1 


PSECT name 


pn 
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Page 
MIRELBLK.MAR;1 


“SEP=1984 
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PSECT No. 


Attributes 

-) -) NOPIC USR CON ABS ~ LCL NOSHR NOEXE 
2 O14 Te? PIC use CON REL GBL NOSHR’ EXE 
o) 2.) CON ABS LCL NOSHR~ EXE 


NORD NOWRT NOVEC BYTE 
RD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
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VAK=-11 Macro Run Statistics 


16-SEP-1984 00:55:46 VAX/VMS Macro V04-00 
3 SEP=1 1982 46 38:66 RMS.SRCIR 
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: Performance indicators ! 
+ 


Phase Page faults CPU Time Elapsed Time 
Initialization 3 8 8:08 -19 00:00:01.07 
zonnens processing 109 700.7 0:00:04. 
341 g: 11-8} 0:00:33.2 
we table sort :00:01.84 0:00:02.1 
Pass 2 8 0:00: 5-48 g: :8 37 
Symbol table output 0:00:00.09 :00: 8°68 
Psect synopsis output 2 0:00:00.03 BR: 0:00.0 
Cross-reference output 0 00:00: 9-8 880202 +88 
Assembler run totals 571 00:00:16.5 00:00:46.5 


The working set Limit was 1500 pages. 

66017 bytes (129 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space a eer to hold 1321 non-local and 7 local symbols. 
414 source Lines were read in Pass 1, producing 15 object records in Pass 2. 

22 pages of virtual memory were used to define 21 macros. 
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Macro Library name Macros defined 
-$255$DUA28: (RMS .OBJIRMS. a3: 1 10 
“$255$DUA28: (SYS.OBJILIB.MLB; 1 0 
“$255$DUA28: Svat IBISTARLET. MLB;2 7 

TOTALS (all Libraries) 17 


1439 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMIRELBLK/OBJ=OBJ$:RMIRELBLK MSRC$:RMIRELBLK/UPDATE=(ENHS:RMIRELBLK) +EXECML$/LIB+LIB$:RMS/LIB 
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